home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #3 / utv2n3s2.d64 / crypto ass't 64 (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  841b  |  28 lines
  1. 10 poke 53281,0:poke 53280,0
  2. 20 print "[147][150]"tab(10) "[195][210][217][208][212][207][199][210][193][205] [193][211][211][201][211][212][193][206][212][154]"
  3. 30 print "   [182][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][181]"
  4. 40 print "   [182] [158]    [207]ne [205]oment [208]lease...      [154][146] [181]"
  5. 50 print "   [182][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][181]"
  6. 60 for i=1 to 8
  7. 70 print "   [182]" spc(32) "[181]":next
  8. 80 print "   [182][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][181]"
  9. 90 print "[153]"
  10. 100 print tab(9) "[204]oading"
  11. 110 print tab(55) "[195]ryptogram"
  12. 120 print tab(61) "[193]ssistant"
  13. 130 :
  14. 140 print "[154][182][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][181]";
  15. 150 print "[182]  [194]y [201]an [193]dam   [214]ancouver [194].[195].  1988  [154][181]";
  16. 160 print "[182][208]ublished by [211]oftdisk [208]ublishing, [201]nc.[154][181]";
  17. 170 print "[182][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][181]";
  18. 180 :
  19. 190 rem 'cryptogram assistant' for the commodore 64
  20. 200 :
  21. 210 rem (c) 1988  by ian adam   vancouver, british columbia
  22. 220 :
  23. 230 rem published by viking technologies, inc.
  24. 240 :
  25. 250 poke 44,16:poke 4096,0
  26. 260 poke 46,110:clr
  27. 270 load"cryptogram.exe",8
  28.